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Problem 

Pull sheets do not have proper alignment for all printers. 


Solution 

The problem is corrected by following the steps listed below. 

NOTE: These corrections will fix the problem for all printers. 

1. Backup the diskette(s) and make the changes on the Backup copy or the 
program. 

2. In BASIC load the program by typing L0AD"R£P0RT1". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 

Old Line: 700 FORX-1T0LF:LPRINTCHR$(138):NEXT:RETURN 
New Line: 700 F0RX»1TOLF: LPRINT" ":N EXT:RETURN 

Old Line: 820 F0RX=1T03:LPRINTTAB(24);GI$(X):NEXT:LPRINTCHR$(138) 

New Line: 820 F0RX=1T03:LPRINTTAB(24);GI$(X):NEXT: LPRINT” '* 

Old Line: 1820 LPRINTTAB(20);FG$(N,0),FG$(N,1):LPRINTSTRING$(80,"*"): 
LPRINTCHR$(138) 

New Line: 1820 LPRINTTAB(20);FG$(N,0),FG$(N,1):LPRINTSTRING$(80,"*"): 
LPRINT” *' 

Old Line: 1850 LPRINT” COST EXTENSION”:LPRINTSTRING$ 

(80,”-”):LPRINTCHR$(138) 

New Line: 1850 LPRINT” COST EXTENSION”:LPRINTSTRING$ 

(80,”-”): LPRINT” ” 

Old Line: 2250 EX#=EX#+CDBL(TP*CS):GOSUB2300:LPRINTCHR$(138) 

New Line: 2250 EX#-EX#+CDBL(TP*CS):GOSUB2300:LPRINT” ” 
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Old Line: 2260 NEXTY,X:LPRINTCHR$(138):LPRINTTAB(33);"**** TOTAL EXTENDED 
COST ."; US ING"#, #######. ##"; EX#: LPRINTCHR$ (12) 

New Line: 2260 NEXTY.X: LPRINT" " :LPRINTTAB(33);"**** TOTAL EXTENDED COST 

.";USING"#,#######.##";EX#:LPRINTCHR$(12);: POKEl6425,1 

Old Line: 2370 LPRINTSTRING$(80,"-"):LPRINTCHR$(138):RETURN 

New Line: 2370 LPRINTSTRING$(80,"-"):LPRINT" ":RETURN 

Old Line: 3070 IFS-2THENLPRINTW1$;TAB(54);W2$:LPRINTCHR$(138):GOTO3110 

New Line: 3070 IFS=-2THENLPRINTW1$;TAB(54) ;W2$: LPRINT" ":G OTO3110 

Old Line: 1810 LPRINTCHR$(12):LPRINT" PAGE - ";P:LPRINTTAB(20);H$; 

" ";DT$ 

New Line: 1810 LPRINTCHR$(12);: POKEl6425,1:L PRINT" PAGE - ";P: 
LPRINTTAB(20);H$;" ";DT$ 

Old Line: 2310 LPRINTCHR$(12):LPRINT" PAGE - ";P:LPRINTTAB(15);H$;" 

DT$:P-P+1:LPRINTSTRING$(80,"-") 

New Line: 2310 LPR1NTCHR$(12) ;:POKEl6425,1:L PRINT" PAGE - ";P: 

LPRINTTAB(15);H$;" ";DT$:P-P+1:LPRINTSTRING$(80,"-") 

Old Line: 3120 LPRINTCHR$02) :LPRINTTAB(20) ;''****** SUMMARY REPORT ******•'; 
LF-3:GOSUB700 

New Line: 3120 LPRINTCHR$(12) ;:P0KE16425,1:L PRINTTAB(20);"****** SUMMARY 

REPORT ******":LF»3:GOSUB700 

Old Line: 3190 LPRINTCHR$(12):RETURN 

New Line: 3190 LPRINTCHR$(12) ;:POKEl6425,1 :RETURN 

Old Line: 3210 LPRINTCHR$(12):LPRINT" PAGE - ";P:P=P+1:LPRINTTAB(15);H$; 

" ";DT$ 

New Line: 3210 LPRINTCHR$(12) ;:POKEl6425,1 :LPRINT" PAGE - ";P: 

P-P+1:LPRINTTAB(15);H$;" ";DT$ 

Old Line: 4140 LPRINTSK$;TAB(25);DE$;TAB(63);USING"######";NR:NEXT: 
LPRINTCHR$(12):RETURN 

New Line: 4140 LPRINTSK$;TAB(25);DE$;TAB(63);USING"######";NR:NEXT: 
LPRINTCHR$(12) ;:POKEl6425,1 :RETURN 

4. Type SAVE"REP0RT1" to save the changes in the program. 

5. In BASIC load the next program by typing LOAD"REPORT2". 

6. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 


Old Line: 
New Line; 


Old Line: 

New Line: 

Old Line: 

New Line: 

Old Line: 
"DESCRIPTION": 


700 

700 

820 

820 

840 

840 

4030 


FORX-ITOLF:LPRINTCHR$(138):NEXT:RETURN 
FORX-1TOLF: LPRINT" ":N EXT:RETURN 

F0RX=1T03:LPRINTTAB(24);GI$(X):NEXT:LPRINTCHR$(138) 
FORX-1TO3:LPRINTTAB(24);GI$(X):NEX T:LPRINT" " 
LPRINTTAB(40-LEN(H$)/2));H$:LPRINTCHR$(138) 
LPRINTTAB(40-LEN(H$)/2));H $:LPRINT" " 

LPRINTCHR$(138):LPRINTTAB(20)"STOCKNUMBER"TAB(40) 
LPRINTTAB(20)STRING$(40,"-") 

LPRINT" ":LPRINTTAB(20)"STOCK NUMBER"TAB(40) 


New Line: 4030 
"DESCRIPTION":LPRINTTAB(20)STRING$(40,"-") 
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Old Line: 4250 NEXTY,X:LPRINTCHR$(138):LPRINTTAB(33)"**** TOTAL EXTENDED 

VALUE ."USING"#########.##";EX#:LPRINTCHR$(12):RETURN 

New Line: 4250 NEXTY.X: LPRINT" ":L PRINTTAB(33)"**** TOTAL EXTENDED 

VALUE ."USING"#########.##";EX#:LPRINTCHR$(12)jj^ 

POKEl6425,1 :RETURN 

Old Line: 4310 LPRINTCHR$(12):LPRINT" 

LPRINTTAB(15);H$;" ";DT$ 

New Line: 4310 LPRINTCHR$(12);: POKEl6425,1 :LPRINT" 

P-P+1:LPRINT" ":LPR1NTTAB(15);H$;" ";DT$ 


PAGE - ";P:P=P+1:LPRINTCHR$(138) 


PAGE 
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Old Line: 
New Line: 
Old Line: 
New Line: 
Old Line: 


4340 LPRINTSTRING$(80,"-"):LPRINTCHR$(138):RETURN 
4340 LPRINTSTRING$(80."-"): LPRINT" ":R ETURN 
5115 LPRINTCHR$(138):LPRINTSTRING$(80,"»") 

5115 LPRINT" ":LPRINTSTRING$(80."-") 


END OF REPORT 


5170 NEXTZ,X:LPRINTCHR$(138):LPRINTTAB(10)"****** 

******":LPRINTCHR$(12):RETURN 

New Line: 5170 NEXTZ.X: LPRINT" ":L PR1NTTAB(10)"****** END OF 
REPORT ******":LPRINTCHR$(12);: P0KE16425.1: RETURN 

Old Line: 5205 LPRINTCHR$(12):LPRINT" PAGE - ";P:LPRINTCHR$(138):LPRINT 
TAB(15);H$+" ";DT$ 

New Line: 5205 LPRINTCHR$(12);: POKEl6425,1:L PRINT" PAGE - ";P: 

LPRINT" ":L PRINTTAB(15);H$+" ";DT$ 

Old Line: 4170 GOSUB10080:IFNF=0THEN4140ELSEQQ=QQ+1:IFPEEK(&H4029)>40 
THENLPRINTCHR$(12):P-P+1 

New Line: 4170 GOSUB10080:IFNF=0THEN4140ELSEQQ=QQ+1:IFPEEK(&H4029)>40 
THENLPRINTCHR$(12);: POKEl6425,1: P-P+1 

7. Type SAVE"REPORT2" to save the changes in the program. 

8. At TRSDOS Ready, make a backup copy of the corrected diskette. 





















